; $VER: Wzonka-Lad Installer Script 0.99.3 (23-Jan-98)
; Installer made by Lennart Johannesson
; For comments, bugs (yes, I know there's still a lot of them)
; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se


;Ask where to place the Wzonka-Lad directory

(message "\nWelcome to Wzonka-Lad Installer!\n-----------------------\n\nThis program will install\n Wzonka-Lad 0.99.3\n on your Amiga\n\n (c) Ville Helin 1996-1998\nvhelin@cc.hut.fi\n\n")

(welcome)

(complete 0)

(set @default-dest 
    (askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
            (help @askdir-help)
            (default "Ram:")
            (newpath)
    )
)

;Create Wzonka-Lad directory

(complete 7)

(set target
	(tackon @default-dest (cat "Wzonka-Lad")))

(makedir target
 	(prompt "Creating directory:\n\""target"\"")
	(help @makedir-help)
)

(copyfiles
        (dest @default-dest)
	(source "icons/install/Wzonka-Lad.info")
        (files))

(set @default-dest (target))

;Install the executables

(complete 14)

(copyfiles
	(prompt "Where would you like me to put the executables?")
	(help @copyfiles-help)
	(source "Wzonka-Lad FULL")
	(dest @default-dest)
	(files)
	(infos)
	(confirm)
)

(copyfiles
        (dest @default-dest)
	(source "Wzonka-Lad FAST")
        (files)
)

(copyfiles
        (dest @default-dest)
	(source "Wzonka-Lad WARP")
        (files)
)

(copyfiles
        (dest @default-dest)
	(source "Wzonka-Lad.FULL")
        (files)
)

(copyfiles
        (dest @default-dest)
	(source "Wzonka-Lad.FAST")
        (files)
)

(copyfiles
        (dest @default-dest)
	(source "Wzonka-Lad.WARP")
        (files)
)

(copyfiles
        (dest @default-dest)
	(source "Palette Editor")
        (files)
)

(copyfiles
        (dest @default-dest)
	(source "icons/install/Wzonka-Lad FULL.info")
        (files))

(copyfiles
        (dest @default-dest)
	(source "icons/install/Wzonka-Lad FAST.info")
        (files))

(copyfiles
        (dest @default-dest)
	(source "icons/install/Wzonka-Lad WARP.info")
        (files))

(copyfiles
        (dest @default-dest)
	(source "icons/install/Palette Editor.info")
        (files))

(set @default-dest (target))

;Install the documents

(complete 21)

(copyfiles
	(prompt "Would you like to install the documents?")
	(help @copyfiles-help)
	(source "Wzonka-Lad Guide")
	(dest @default-dest)
	(files)
	(confirm)
)

(copyfiles
        (dest @default-dest)
	(source "icons/install/Wzonka-Lad Guide.info")
        (files))

;Install controlpad.library

(complete 35)

(set @default-dest "libs:")

(copylib
	(prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
	(help @copylib-help)
	(source "libs/controlpad.library")
	(dest @default-dest)
	(confirm)
)


;Install the fonts

(complete 42)

(set @default-dest "FONTS:")

(copyfiles
	(prompt "And the fonts...\nWhere do I put them?")
	(help @copyfiles-help)
	(source "fonts/")
	(dest @default-dest)
	(all)
	(confirm)
)

;Install the sample cartridge(s)

(complete 49)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "Where would you like to store your cartridges?\n(A drawer called \"cartridges\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
    )
)

(set @default-dest
	(tackon @default-dest (cat "cartridges")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install the sample cartridge(s) to:\n")
	(help @copyfiles-help)
	(source "cartridges")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the sample battery ram(s)

(complete 49)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "Where would you like to store your battery ram files?\n(A drawer called \"battery_rams\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
    )
)

(set @default-dest
	(tackon @default-dest (cat "battery_rams")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install the sample battery ram file(s) to:\n")
	(help @copyfiles-help)
	(source "battery_rams")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the sample prefs

(complete 56)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
    )
)

(set @default-dest
	(tackon @default-dest (cat "prefs")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install the sample prefs-file to:\n")
	(help @copyfiles-help)
	(source "prefs")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the sample vgb colour files

(complete 63)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
    )
)

(set @default-dest
	(tackon @default-dest (cat "vgb_colour_schemes")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install the VGB (tm) example colour files to:\n")
	(help @copyfiles-help)
	(source "vgb_colour_schemes")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the extra Icons

(complete 70)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
        )
    )

(set @default-dest
	(tackon @default-dest (cat "icons")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install the extra icons to:\n")
	(help @copyfiles-help)
	(source "icons")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the tools directory

(complete 77)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
        )
    )

(set @default-dest
	(tackon @default-dest (cat "tools")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install the extra tools to:\n")
	(help @copyfiles-help)
	(source "tools")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the gbs directory and an example gbs file

(complete 84)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
        )
    )

(set @default-dest
	(tackon @default-dest (cat "gbs")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install an gbs example file to:\n")
	(help @copyfiles-help)
	(source "gbs")
	(dest @default-dest)
	(confirm)
	(all)
)

;Install the favourites directory and the favourite list

(complete 91)

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "And the favourites directory?\n(A drawer called \"favourites\" will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
        )
    )

(set @default-dest
	(tackon @default-dest (cat "favourites")))

(makedir @default-dest
	(prompt "Creating directory...")
	(help @makedir-help)
)

(copyfiles
	(prompt "Install an favourite.list example to:\n")
	(help @copyfiles-help)
	(source "favourites")
	(dest @default-dest)
	(confirm)
	(all)
)

;Write out some copyright stuff

(complete 100)

(set @default-dest (target))

(message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1998\nvhelin@cc.hut.fi\n\n For comments about the installer mail to:\nLennart Johannesson\n95lenjo@ostrabo.uddevalla.se")
